home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #1 / Amiga Plus CD - 1996 - No. 1.iso / pd / netz / amiconnect / amitcp / bin / all / emailmch next >
Text File  |  1995-07-29  |  703b  |  27 lines
  1. /* Rexx
  2. ** $ver: E-Mail Mch V1
  3. */
  4. sequence = "999"
  5. if open(seq,"uulib:seq","R") then
  6. do
  7.   sequence = readln(seq)
  8.   call close(seq)
  9. end
  10. filename = "t:mailtmp-"||sequence
  11. call open(edfile,filename,"W")
  12. call seek(edfile,0,"B")
  13. call writeln(edfile,"To: Martin@mchunt.zynet.co.uk")
  14. call writeln(edfile,"Subject: AC-")
  15. call writeln(edfile,"")
  16. call writeln(edfile,"Hi Martin,")
  17. call close(edfile)
  18. address command "ed "||filename
  19. cmd = "protect "||filename||" rweds"
  20. address command cmd
  21. cmd = "join "||filename||" uulib:$user.signature to t:joined"
  22. address command cmd
  23. cmd = "sendmail <t:joined -f $user"
  24. address command cmd
  25. address command "delete t:joined quiet"
  26. address command "delete "||filename||" quiet"
  27.